home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / vbmdixpl.zip / FORM1.FRM < prev    next >
Text File  |  1993-05-17  |  2KB  |  62 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form 0"
  4.    Height          =   4164
  5.    Left            =   1392
  6.    LinkTopic       =   "Form1"
  7.    MDIChild        =   -1  'True
  8.    ScaleHeight     =   3744
  9.    ScaleWidth      =   6420
  10.    Top             =   2280
  11.    Width           =   6516
  12.    Begin Label Label1 
  13.       AutoSize        =   -1  'True
  14.       Caption         =   "This is a MDI Child Window"
  15.       Height          =   192
  16.       Index           =   2
  17.       Left            =   240
  18.       TabIndex        =   2
  19.       Top             =   1320
  20.       Width           =   2256
  21.    End
  22.    Begin Label Label1 
  23.       AutoSize        =   -1  'True
  24.       Caption         =   "and a floating Toolbar"
  25.       Height          =   192
  26.       Index           =   1
  27.       Left            =   240
  28.       TabIndex        =   1
  29.       Top             =   840
  30.       Width           =   1848
  31.    End
  32.    Begin Label Label1 
  33.       AutoSize        =   -1  'True
  34.       Caption         =   "Sample MDI Application with Common Dialogs"
  35.       Height          =   192
  36.       Index           =   0
  37.       Left            =   240
  38.       TabIndex        =   0
  39.       Top             =   360
  40.       Width           =   3828
  41.    End
  42. End
  43.  
  44. Sub Form_GotFocus ()
  45.    ' Test for Stausline
  46.    Action (" Active Form: " + Me.Caption)
  47. End Sub
  48.  
  49. Sub Form_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
  50.     Call ShowPopup(Me, x, y)
  51. End Sub
  52.  
  53. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  54.     ' delete, if this is nagging
  55.    If UnloadMode = 0 Then ' User clicked close-box
  56.     If Not Doit("Close " + Me.Caption + " ?") Then
  57.        Cancel = 1
  58.     End If
  59.    End If
  60. End Sub
  61.  
  62.